/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / plain / contrib / lettermac.tex

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 25 20 6c 65 74 74 65 72 | 6d 61 63 2e 74 65 78 0a |% letter|mac.tex.|
|00000010| 25 0a 25 20 4a 2e 20 44 | 61 6e 69 65 6c 20 53 6d |%.% J. D|aniel Sm|
|00000020| 69 74 68 0a 25 20 38 20 | 4e 6f 76 65 6d 62 65 72 |ith.% 8 |November|
|00000030| 20 31 39 38 39 0a 25 0a | 25 20 53 69 6d 70 6c 65 | 1989.%.|% Simple|
|00000040| 20 6d 61 63 72 6f 73 20 | 66 6f 72 20 77 72 69 74 | macros |for writ|
|00000050| 69 6e 67 20 6c 65 74 74 | 65 72 73 0a 25 0a 25 20 |ing lett|ers.%.% |
|00000060| 4c 61 73 74 20 55 70 64 | 61 74 65 64 3a 0a 25 20 |Last Upd|ated:.% |
|00000070| 20 20 4a 44 53 20 20 20 | 32 33 20 4d 61 79 20 39 |  JDS   |23 May 9|
|00000080| 30 0a 25 0a 25 20 64 6f | 6e 27 74 20 69 6e 64 65 |0.%.% do|n't inde|
|00000090| 6e 74 20 70 61 72 61 67 | 72 61 70 68 73 0a 5c 6e |nt parag|raphs.\n|
|000000a0| 65 77 64 69 6d 65 6e 5c | 6f 6c 64 70 61 72 69 6e |ewdimen\|oldparin|
|000000b0| 64 65 6e 74 20 5c 6f 6c | 64 70 61 72 69 6e 64 65 |dent \ol|dparinde|
|000000c0| 6e 74 3d 5c 70 61 72 69 | 6e 64 65 6e 74 0a 5c 70 |nt=\pari|ndent.\p|
|000000d0| 61 72 69 6e 64 65 6e 74 | 3d 30 70 74 0a 25 0a 25 |arindent|=0pt.%.%|
|000000e0| 20 64 6f 6e 27 74 20 64 | 6f 20 73 6f 20 6d 75 63 | don't d|o so muc|
|000000f0| 68 20 63 6f 6d 70 6c 61 | 69 6e 69 6e 67 0a 5c 74 |h compla|ining.\t|
|00000100| 6f 6c 65 72 61 6e 63 65 | 3d 31 30 30 30 30 20 5c |olerance|=10000 \|
|00000110| 68 62 61 64 6e 65 73 73 | 3d 39 39 39 39 20 5c 76 |hbadness|=9999 \v|
|00000120| 62 61 64 6e 65 73 73 3d | 39 39 39 39 0a 25 0a 25 |badness=|9999.%.%|
|00000130| 20 6d 61 6b 65 20 5c 6e | 61 72 72 6f 77 65 72 20 | make \n|arrower |
|00000140| 77 6f 72 6b 20 63 6f 72 | 72 65 63 74 6c 79 20 77 |work cor|rectly w|
|00000150| 69 74 68 20 5c 70 61 72 | 69 6e 64 65 6e 74 0a 5c |ith \par|indent.\|
|00000160| 64 65 66 5c 6e 61 72 72 | 6f 77 65 72 7b 5c 61 64 |def\narr|ower{\ad|
|00000170| 76 61 6e 63 65 5c 6c 65 | 66 74 73 6b 69 70 20 62 |vance\le|ftskip b|
|00000180| 79 5c 6f 6c 64 70 61 72 | 69 6e 64 65 6e 74 0a 09 |y\oldpar|indent..|
|00000190| 20 20 20 20 20 20 5c 61 | 64 76 61 6e 63 65 5c 72 |      \a|dvance\r|
|000001a0| 69 67 68 74 73 6b 69 70 | 20 62 79 5c 6f 6c 64 70 |ightskip| by\oldp|
|000001b0| 61 72 69 6e 64 65 6e 74 | 7d 0a 25 0a 25 20 6c 65 |arindent|}.%.% le|
|000001c0| 61 76 65 20 61 20 62 6c | 61 6e 6b 20 6c 69 6e 65 |ave a bl|ank line|
|000001d0| 20 62 65 74 77 65 65 6e | 20 70 61 72 61 67 72 61 | between| paragra|
|000001e0| 70 68 73 0a 5c 70 61 72 | 73 6b 69 70 3d 31 30 70 |phs.\par|skip=10p|
|000001f0| 74 20 70 6c 75 73 20 31 | 70 74 20 6d 69 6e 75 73 |t plus 1|pt minus|
|00000200| 20 30 2e 35 70 74 0a 25 | 20 0a 25 20 70 61 67 65 | 0.5pt.%| .% page|
|00000210| 20 62 72 65 61 6b 73 20 | 62 65 74 77 65 65 6e 20 | breaks |between |
|00000220| 70 61 72 61 67 72 61 70 | 68 73 20 77 68 65 6e 20 |paragrap|hs when |
|00000230| 70 6f 73 73 69 62 6c 65 | 0a 5c 69 6e 74 65 72 6c |possible|.\interl|
|00000240| 69 6e 65 70 65 6e 61 6c | 74 79 3d 31 30 30 30 0a |inepenal|ty=1000.|
|00000250| 25 0a 25 20 73 6b 69 70 | 20 6f 76 65 72 20 61 20 |%.% skip| over a |
|00000260| 62 69 74 20 6f 6e 20 74 | 68 65 20 70 61 67 65 0a |bit on t|he page.|
|00000270| 5c 64 65 66 5c 69 6e 66 | 6f 23 31 7b 5c 68 73 6b |\def\inf|o#1{\hsk|
|00000280| 69 70 2e 36 5c 68 73 69 | 7a 65 23 31 5c 70 61 72 |ip.6\hsi|ze#1\par|
|00000290| 5c 70 61 72 7d 0a 25 0a | 25 20 6f 66 20 63 6f 75 |\par}.%.|% of cou|
|000002a0| 72 73 65 2c 20 77 65 20 | 64 6f 6e 27 74 20 77 61 |rse, we |don't wa|
|000002b0| 6e 74 20 70 61 67 65 20 | 6e 75 6d 62 65 72 73 0a |nt page |numbers.|
|000002c0| 5c 6e 6f 70 61 67 65 6e | 75 6d 62 65 72 73 0a 25 |\nopagen|umbers.%|
|000002d0| 0a 25 20 74 75 72 6e 20 | 6f 66 66 20 68 79 70 68 |.% turn |off hyph|
|000002e0| 65 6e 61 74 69 6f 6e 0a | 5c 70 72 65 74 6f 6c 65 |enation.|\pretole|
|000002f0| 72 61 6e 63 65 3d 31 30 | 30 30 30 5c 68 79 70 68 |rance=10|000\hyph|
|00000300| 65 6e 70 65 6e 61 6c 74 | 79 3d 31 30 30 30 30 0a |enpenalt|y=10000.|
|00000310| 25 0a 25 20 67 65 74 20 | 74 68 65 20 6e 61 6d 65 |%.% get |the name|
|00000320| 20 6f 66 20 74 68 65 20 | 61 64 64 72 65 73 73 20 | of the |address |
|00000330| 66 69 6c 65 20 66 72 6f | 6d 20 74 68 65 20 75 73 |file fro|m the us|
|00000340| 65 72 0a 5c 64 65 66 5c | 67 65 74 61 64 64 72 65 |er.\def\|getaddre|
|00000350| 73 73 23 31 7b 5c 62 65 | 67 69 6e 67 72 6f 75 70 |ss#1{\be|gingroup|
|00000360| 0a 09 09 20 20 20 5c 6e | 65 77 6c 69 6e 65 63 68 |...   \n|ewlinech|
|00000370| 61 72 3d 60 40 20 5c 64 | 65 66 5c 5c 7b 40 7d 0a |ar=`@ \d|ef\\{@}.|
|00000380| 09 09 20 20 20 5c 6d 65 | 73 73 61 67 65 7b 40 23 |..   \me|ssage{@#|
|00000390| 31 7d 0a 09 09 20 20 20 | 5c 6d 65 73 73 61 67 65 |1}...   |\message|
|000003a0| 7b 40 45 6e 74 65 72 20 | 74 68 65 20 6e 61 6d 65 |{@Enter |the name|
|000003b0| 20 6f 66 20 74 68 65 20 | 61 64 64 72 65 73 73 20 | of the |address |
|000003c0| 66 69 6c 65 3a 20 7d 0a | 09 09 20 20 20 5c 65 6e |file: }.|..   \en|
|000003d0| 64 6c 69 6e 65 63 68 61 | 72 3d 2d 31 0a 09 09 20 |dlinecha|r=-1... |
|000003e0| 20 20 5c 72 65 61 64 2d | 31 20 74 6f 5c 41 64 64 |  \read-|1 to\Add|
|000003f0| 72 65 73 73 46 69 6c 65 | 4e 61 6d 65 0a 09 09 20 |ressFile|Name... |
|00000400| 20 20 5c 67 6c 6f 62 61 | 6c 5c 65 64 65 66 5c 49 |  \globa|l\edef\I|
|00000410| 6e 70 75 74 41 64 64 72 | 65 73 73 46 69 6c 65 4e |nputAddr|essFileN|
|00000420| 61 6d 65 7b 5c 41 64 64 | 72 65 73 73 46 69 6c 65 |ame{\Add|ressFile|
|00000430| 4e 61 6d 65 2e 61 64 72 | 7d 0a 09 09 20 20 5c 65 |Name.adr|}...  \e|
|00000440| 6e 64 67 72 6f 75 70 0a | 09 09 20 20 5c 6f 62 65 |ndgroup.|..  \obe|
|00000450| 79 73 70 61 63 65 73 20 | 20 20 25 20 6b 65 65 70 |yspaces |  % keep|
|00000460| 20 73 70 61 63 65 73 20 | 69 6e 20 61 64 64 72 65 | spaces |in addre|
|00000470| 73 73 0a 09 09 20 20 25 | 20 4d 61 6b 65 20 69 74 |ss...  %| Make it|
|00000480| 20 65 61 73 69 65 72 20 | 74 6f 20 74 79 70 65 20 | easier |to type |
|00000490| 27 23 27 20 61 6e 64 20 | 27 26 27 20 69 6e 20 61 |'#' and |'&' in a|
|000004a0| 64 64 72 65 73 73 65 73 | 0a 09 09 20 20 5c 63 61 |ddresses|...  \ca|
|000004b0| 74 63 6f 64 65 60 5c 23 | 3d 31 32 5c 63 61 74 63 |tcode`\#|=12\catc|
|000004c0| 6f 64 65 60 5c 26 3d 31 | 32 0a 09 09 20 20 5c 69 |ode`\&=1|2...  \i|
|000004d0| 6e 70 75 74 5c 49 6e 70 | 75 74 41 64 64 72 65 73 |nput\Inp|utAddres|
|000004e0| 73 46 69 6c 65 4e 61 6d | 65 20 0a 09 09 20 20 5c |sFileNam|e ...  \|
|000004f0| 63 61 74 63 6f 64 65 60 | 5c 23 3d 36 5c 63 61 74 |catcode`|\#=6\cat|
|00000500| 63 6f 64 65 60 5c 26 3d | 34 0a 09 09 20 20 5c 6c |code`\&=|4...  \l|
|00000510| 65 74 5c 67 65 74 61 64 | 64 72 65 73 73 5c 72 65 |et\getad|dress\re|
|00000520| 6c 61 78 7d 0a 25 0a 25 | 20 61 64 64 72 65 73 73 |lax}.%.%| address|
|00000530| 20 61 74 20 74 6f 70 20 | 6f 66 20 6c 65 74 74 65 | at top |of lette|
|00000540| 72 0a 5c 64 65 66 5c 73 | 65 74 61 64 64 72 65 73 |r.\def\s|etaddres|
|00000550| 73 23 31 7b 5c 67 64 65 | 66 5c 58 61 64 64 72 65 |s#1{\gde|f\Xaddre|
|00000560| 73 73 7b 23 31 7d 7d 0a | 20 20 20 20 5c 73 65 74 |ss{#1}}.|    \set|
|00000570| 61 64 64 72 65 73 73 7b | 5c 68 62 6f 78 7b 5c 62 |address{|\hbox{\b|
|00000580| 66 20 2a 20 41 44 44 52 | 45 53 53 20 2a 7d 7d 0a |f * ADDR|ESS *}}.|
|00000590| 5c 64 65 66 5c 61 64 64 | 72 65 73 73 7b 5c 70 61 |\def\add|ress{\pa|
|000005a0| 72 7b 5c 76 73 6b 69 70 | 5c 70 61 72 73 6b 69 70 |r{\vskip|\parskip|
|000005b0| 5c 70 61 72 73 6b 69 70 | 3d 30 70 74 5c 64 65 66 |\parskip|=0pt\def|
|000005c0| 5c 5c 7b 5c 70 61 72 7d | 0a 20 20 20 20 20 20 20 |\\{\par}|.       |
|000005d0| 20 20 20 20 20 20 20 20 | 20 20 20 5c 66 72 65 6e |        |   \fren|
|000005e0| 63 68 73 70 61 63 69 6e | 67 5c 58 61 64 64 72 65 |chspacin|g\Xaddre|
|000005f0| 73 73 7d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ss}.    |        |
|00000600| 20 5c 70 61 72 5c 6c 65 | 74 5c 61 64 64 72 65 73 | \par\le|t\addres|
|00000610| 73 5c 72 65 6c 61 78 7d | 0a 25 0a 25 20 56 61 72 |s\relax}|.%.% Var|
|00000620| 69 6f 75 73 20 69 74 65 | 6d 73 20 74 68 61 74 20 |ious ite|ms that |
|00000630| 6d 69 67 68 74 20 62 65 | 20 75 73 65 64 20 74 68 |might be| used th|
|00000640| 72 6f 75 67 68 6f 75 74 | 20 74 68 65 20 6c 65 74 |roughout| the let|
|00000650| 74 65 72 2e 20 20 44 65 | 66 61 75 6c 74 73 0a 25 |ter.  De|faults.%|
|00000660| 20 61 72 65 20 73 65 74 | 20 74 6f 20 73 6f 6d 65 | are set| to some|
|00000670| 74 68 69 6e 67 20 6f 62 | 6e 6f 78 69 6f 75 73 20 |thing ob|noxious |
|00000680| 73 6f 20 74 68 61 74 20 | 69 66 20 74 68 65 79 20 |so that |if they |
|00000690| 61 72 65 20 75 73 65 64 | 20 77 69 74 68 6f 75 74 |are used| without|
|000006a0| 0a 25 20 62 65 69 6e 67 | 20 73 65 74 20 69 74 20 |.% being| set it |
|000006b0| 77 69 6c 6c 20 62 65 20 | 6f 62 76 69 6f 75 73 0a |will be |obvious.|
|000006c0| 5c 64 65 66 5c 73 65 74 | 74 69 74 6c 65 23 31 7b |\def\set|title#1{|
|000006d0| 5c 67 64 65 66 5c 58 74 | 69 74 6c 65 7b 23 31 7d |\gdef\Xt|itle{#1}|
|000006e0| 7d 0a 20 20 20 20 5c 73 | 65 74 74 69 74 6c 65 7b |}.    \s|ettitle{|
|000006f0| 5c 68 62 6f 78 7b 5c 62 | 66 20 2a 20 54 49 54 4c |\hbox{\b|f * TITL|
|00000700| 45 20 2a 7d 7d 0a 5c 64 | 65 66 5c 74 69 74 6c 65 |E *}}.\d|ef\title|
|00000710| 7b 5c 58 74 69 74 6c 65 | 7d 0a 25 0a 5c 64 65 66 |{\Xtitle|}.%.\def|
|00000720| 5c 73 65 74 66 69 72 73 | 74 6e 61 6d 65 23 31 7b |\setfirs|tname#1{|
|00000730| 5c 67 64 65 66 5c 58 66 | 69 72 73 74 6e 61 6d 65 |\gdef\Xf|irstname|
|00000740| 7b 23 31 7d 7d 0a 20 20 | 20 20 5c 73 65 74 66 69 |{#1}}.  |  \setfi|
|00000750| 72 73 74 6e 61 6d 65 7b | 5c 68 62 6f 78 7b 5c 62 |rstname{|\hbox{\b|
|00000760| 66 20 2a 20 46 49 52 53 | 54 4e 41 4d 45 20 2a 7d |f * FIRS|TNAME *}|
|00000770| 7d 0a 5c 64 65 66 5c 66 | 69 72 73 74 6e 61 6d 65 |}.\def\f|irstname|
|00000780| 7b 5c 58 66 69 72 73 74 | 6e 61 6d 65 7d 0a 25 0a |{\Xfirst|name}.%.|
|00000790| 5c 64 65 66 5c 73 65 74 | 6c 61 73 74 6e 61 6d 65 |\def\set|lastname|
|000007a0| 23 31 7b 5c 67 64 65 66 | 5c 58 6c 61 73 74 6e 61 |#1{\gdef|\Xlastna|
|000007b0| 6d 65 7b 23 31 7d 7d 0a | 20 20 20 20 5c 73 65 74 |me{#1}}.|    \set|
|000007c0| 6c 61 73 74 6e 61 6d 65 | 7b 5c 68 62 6f 78 7b 5c |lastname|{\hbox{\|
|000007d0| 62 66 20 2a 20 4c 41 53 | 54 4e 41 4d 45 20 2a 7d |bf * LAS|TNAME *}|
|000007e0| 7d 0a 5c 64 65 66 5c 6c | 61 73 74 6e 61 6d 65 7b |}.\def\l|astname{|
|000007f0| 5c 58 6c 61 73 74 6e 61 | 6d 65 7d 0a 25 0a 5c 64 |\Xlastna|me}.%.\d|
|00000800| 65 66 5c 73 65 74 63 6f | 6d 70 61 6e 79 23 31 7b |ef\setco|mpany#1{|
|00000810| 5c 67 6c 6f 62 61 6c 5c | 64 65 66 5c 58 63 6f 6d |\global\|def\Xcom|
|00000820| 70 61 6e 79 7b 23 31 7d | 7d 0a 20 20 20 20 5c 73 |pany{#1}|}.    \s|
|00000830| 65 74 63 6f 6d 70 61 6e | 79 7b 5c 68 62 6f 78 7b |etcompan|y{\hbox{|
|00000840| 5c 62 66 20 2a 20 43 4f | 4d 50 41 4e 59 20 2a 7d |\bf * CO|MPANY *}|
|00000850| 7d 0a 5c 64 65 66 5c 63 | 6f 6d 70 61 6e 79 7b 5c |}.\def\c|ompany{\|
|00000860| 58 63 6f 6d 70 61 6e 79 | 7d 0a 25 0a 25 20 61 64 |Xcompany|}.%.% ad|
|00000870| 64 72 65 73 73 65 65 0a | 5c 64 65 66 5c 61 64 64 |dressee.|\def\add|
|00000880| 72 65 73 73 65 65 7b 44 | 65 61 72 20 5c 58 74 69 |ressee{D|ear \Xti|
|00000890| 74 6c 65 5c 20 5c 58 6c | 61 73 74 6e 61 6d 65 2c |tle\ \Xl|astname,|
|000008a0| 5c 70 61 72 7d 0a 25 0a | 25 20 61 74 74 6e 20 66 |\par}.%.|% attn f|
|000008b0| 6f 72 20 65 6e 76 65 6c | 6f 70 65 73 0a 5c 64 65 |or envel|opes.\de|
|000008c0| 66 5c 61 74 74 6e 23 31 | 7b 5c 67 64 65 66 5c 58 |f\attn#1|{\gdef\X|
|000008d0| 61 74 74 6e 7b 41 74 74 | 6e 3a 20 23 31 7d 7d 0a |attn{Att|n: #1}}.|
|000008e0| 25 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |%       |        |
|000008f0| 5c 67 64 65 66 5c 61 74 | 74 6e 7b 5c 70 61 72 5c |\gdef\at|tn{\par\|
|00000900| 76 66 69 6c 6c 5c 6c 69 | 6e 65 5c 62 67 72 6f 75 |vfill\li|ne\bgrou|
|00000910| 70 5c 68 62 6f 78 7b 41 | 74 74 6e 3a 20 5c 58 61 |p\hbox{A|ttn: \Xa|
|00000920| 74 74 6e 7d 5c 68 66 69 | 6c 7d 7d 0a 5c 6c 65 74 |ttn}\hfi|l}}.\let|
|00000930| 5c 58 61 74 74 6e 3d 5c | 72 65 6c 61 78 20 25 20 |\Xattn=\|relax % |
|00000940| 64 6f 6e 27 74 20 64 6f | 20 61 6e 79 74 68 69 6e |don't do| anythin|
|00000950| 67 20 75 6e 6c 65 73 73 | 20 69 74 73 20 5c 61 74 |g unless| its \at|
|00000960| 74 6e 20 69 73 20 75 73 | 65 64 0a 25 0a 25 20 5a |tn is us|ed.%.% Z|
|00000970| 49 50 20 63 6f 64 65 2e | 20 20 46 6f 72 20 63 6f |IP code.|  For co|
|00000980| 6d 70 61 74 61 62 69 6c | 69 74 79 20 77 69 74 68 |mpatabil|ity with|
|00000990| 20 65 6e 76 65 6c 6f 70 | 65 20 6d 61 63 72 6f 73 | envelop|e macros|
|000009a0| 2e 0a 5c 6c 65 74 5c 7a | 69 70 62 61 72 3d 5c 72 |..\let\z|ipbar=\r|
|000009b0| 65 6c 61 78 0a 25 20 63 | 6c 6f 73 69 6e 67 73 0a |elax.% c|losings.|
|000009c0| 5c 64 65 66 5c 73 69 67 | 6e 61 74 75 72 65 23 31 |\def\sig|nature#1|
|000009d0| 23 32 7b 5c 76 73 6b 69 | 70 5c 70 61 72 73 6b 69 |#2{\vski|p\parski|
|000009e0| 70 7b 5c 76 62 6f 78 7b | 5c 69 6e 66 6f 7b 23 31 |p{\vbox{|\info{#1|
|000009f0| 2c 7d 5c 76 73 6b 69 70 | 2e 33 35 74 72 75 65 20 |,}\vskip|.35true |
|00000a00| 69 6e 5c 69 6e 66 6f 7b | 23 32 7d 7d 0a 20 20 20 |in\info{|#2}}.   |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 5c 6c |        |      \l|
|00000a20| 65 74 5c 73 69 67 6e 61 | 74 75 72 65 5c 72 65 6c |et\signa|ture\rel|
|00000a30| 61 78 7d 7d 0a 5c 64 65 | 66 5c 73 69 6e 63 65 72 |ax}}.\de|f\sincer|
|00000a40| 65 6c 79 23 31 7b 5c 73 | 69 67 6e 61 74 75 72 65 |ely#1{\s|ignature|
|00000a50| 7b 53 69 6e 63 65 72 65 | 6c 79 7d 7b 23 31 7d 5c |{Sincere|ly}{#1}\|
|00000a60| 6c 65 74 5c 73 69 6e 63 | 65 72 65 6c 79 5c 72 65 |let\sinc|erely\re|
|00000a70| 6c 61 78 7d 0a 5c 64 65 | 66 5c 6c 6f 76 65 23 31 |lax}.\de|f\love#1|
|00000a80| 7b 5c 73 69 67 6e 61 74 | 75 72 65 7b 4c 6f 76 65 |{\signat|ure{Love|
|00000a90| 7d 7b 23 31 7d 5c 6c 65 | 74 5c 6c 6f 76 65 5c 72 |}{#1}\le|t\love\r|
|00000aa0| 65 6c 61 78 7d 0a 25 0a | 25 20 63 63 3a 0a 5c 64 |elax}.%.|% cc:.\d|
|00000ab0| 65 66 5c 63 63 23 31 7b | 5c 70 61 72 7b 5c 76 73 |ef\cc#1{|\par{\vs|
|00000ac0| 6b 69 70 5c 70 61 72 73 | 6b 69 70 5c 70 61 72 73 |kip\pars|kip\pars|
|00000ad0| 6b 69 70 3d 30 70 74 5c | 64 65 66 5c 5c 7b 5c 70 |kip=0pt\|def\\{\p|
|00000ae0| 61 72 7d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ar}.    |        |
|00000af0| 20 20 20 7b 5c 72 6d 20 | 63 63 3a 20 7d 5c 65 76 |   {\rm |cc: }\ev|
|00000b00| 65 72 79 70 61 72 3d 7b | 5c 70 68 61 6e 74 6f 6d |erypar={|\phantom|
|00000b10| 7b 5c 72 6d 20 63 63 3a | 20 7d 7d 23 31 7d 0a 20 |{\rm cc:| }}#1}. |
|00000b20| 20 20 20 20 20 20 20 20 | 20 5c 6c 65 74 5c 63 63 |        | \let\cc|
|00000b30| 5c 72 65 6c 61 78 7d 0a | 25 20 52 45 3a 0a 5c 64 |\relax}.|% RE:.\d|
|00000b40| 65 66 5c 72 65 23 31 7b | 5c 70 61 72 7b 5c 76 73 |ef\re#1{|\par{\vs|
|00000b50| 6b 69 70 5c 70 61 72 73 | 6b 69 70 5c 70 61 72 73 |kip\pars|kip\pars|
|00000b60| 6b 69 70 3d 30 70 74 5c | 64 65 66 5c 5c 7b 5c 70 |kip=0pt\|def\\{\p|
|00000b70| 61 72 7d 0a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ar}.    |        |
|00000b80| 20 20 20 7b 5c 72 6d 20 | 52 45 3a 20 7d 5c 65 76 |   {\rm |RE: }\ev|
|00000b90| 65 72 79 70 61 72 3d 7b | 5c 70 68 61 6e 74 6f 6d |erypar={|\phantom|
|00000ba0| 7b 5c 72 6d 20 52 45 3a | 20 7d 7d 23 31 7d 0a 20 |{\rm RE:| }}#1}. |
|00000bb0| 20 20 20 20 20 20 20 20 | 20 5c 6c 65 74 5c 72 65 |        | \let\re|
|00000bc0| 5c 72 65 6c 61 78 7d 0a | 25 0a 25 20 54 68 65 20 |\relax}.|%.% The |
|00000bd0| 64 61 74 65 20 61 74 20 | 74 68 65 20 74 6f 70 20 |date at |the top |
|00000be0| 6f 66 20 74 68 65 20 6c | 65 74 74 65 72 0a 25 20 |of the l|etter.% |
|00000bf0| 49 66 20 61 20 64 61 74 | 65 20 69 73 20 6e 6f 74 |If a dat|e is not|
|00000c00| 20 73 65 74 2c 20 74 68 | 65 6e 20 74 68 65 20 63 | set, th|en the c|
|00000c10| 75 72 72 65 6e 74 20 64 | 61 74 65 20 69 73 20 75 |urrent d|ate is u|
|00000c20| 73 65 64 2e 0a 5c 64 65 | 66 5c 58 74 6f 64 61 79 |sed..\de|f\Xtoday|
|00000c30| 7b 5c 6e 75 6d 62 65 72 | 5c 64 61 79 5c 73 70 61 |{\number|\day\spa|
|00000c40| 63 65 5c 69 66 63 61 73 | 65 5c 6d 6f 6e 74 68 5c |ce\ifcas|e\month\|
|00000c50| 6f 72 0a 20 20 4a 61 6e | 75 61 72 79 5c 6f 72 20 |or.  Jan|uary\or |
|00000c60| 46 65 62 72 75 61 72 79 | 5c 6f 72 20 4d 61 72 63 |February|\or Marc|
|00000c70| 68 5c 6f 72 20 41 70 72 | 69 6c 5c 6f 72 20 4d 61 |h\or Apr|il\or Ma|
|00000c80| 79 5c 6f 72 20 4a 75 6e | 65 5c 6f 72 0a 20 20 4a |y\or Jun|e\or.  J|
|00000c90| 75 6c 79 5c 6f 72 20 41 | 75 67 75 73 74 5c 6f 72 |uly\or A|ugust\or|
|00000ca0| 20 53 65 70 74 65 6d 62 | 65 72 5c 6f 72 20 4f 63 | Septemb|er\or Oc|
|00000cb0| 74 6f 62 65 72 5c 6f 72 | 20 4e 6f 76 65 6d 62 65 |tober\or| Novembe|
|00000cc0| 72 5c 6f 72 20 44 65 63 | 65 6d 62 65 72 5c 66 69 |r\or Dec|ember\fi|
|00000cd0| 0a 20 20 5c 73 70 61 63 | 65 5c 6e 75 6d 62 65 72 |.  \spac|e\number|
|00000ce0| 5c 79 65 61 72 7d 0a 5c | 64 65 66 5c 74 6f 64 61 |\year}.\|def\toda|
|00000cf0| 79 23 31 7b 5c 67 64 65 | 66 5c 58 74 6f 64 61 79 |y#1{\gde|f\Xtoday|
|00000d00| 7b 23 31 7d 7d 0a 5c 64 | 65 66 5c 64 61 74 65 7b |{#1}}.\d|ef\date{|
|00000d10| 5c 69 6e 66 6f 7b 5c 58 | 74 6f 64 61 79 7d 5c 6c |\info{\X|today}\l|
|00000d20| 65 74 5c 64 61 74 65 5c | 72 65 6c 61 78 7d 0a    |et\date\|relax}. |
+--------+-------------------------+-------------------------+--------+--------+